function n = linecount(filena)

fid = fopen(filena);
n = 0;
tline = fgetl(fid);
while ischar(tline)
    tline = fgetl(fid);
    n = n+1;
end